SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TMSOLI_CABA_U01] 
/*---------------------------------------------------------*/  
/*---Empresa              : OFISIS S.A.                  --*/  
/*---Cliente              : OFISIS S.A.                  --*/  
/*---Sistema              : Tesoreria                    --*/  
/*---M”dulo               : Empresa                      --*/  
/*---Programa             : Aprobaciön TMSOLI_CABA       --*/  
/*---                       y a la TMDOCU_PROV           --*/  
/*---Nombre SP            : SP_TMSOLI_CABA_I03           --*/  
/*---Desarrollado por     : Carlos Marquez E.            --*/  
/*---Fecha Creaci”n       : 20/06/2005                   --*/  
/*---Base Datos           : Microsoft Sql Server         --*/  
/*---Versi”n              : 8.0                          --*/  
/*---Invoca a SP          :                              --*/  
/*---------------------------------------------------------*/  
/*---------------------------------------------------------*/  
/*---Modificado 1 por     : Carlos Marquez E             --*/  
/*---Fecha Modificaci"n   : 20/06/2005                   --*/  
/*---Detalle Modificaci"n :                              --*/  
/*---------------------------------------------------------*/  
/*---------------------------------------------------------*/  
/*---Comentarios                                         --*/  
/*---                                                    --*/  
/*---                                                    --*/  
/*---------------------------------------------------------*/  
/*---------------------------------------------------------*/  
/*---Drop Proc SP_TMSOLI_CABA_U01                        --*/  
/*---Grant all on SP_TMSOLI_CABA_U01 to public           --*/   
/*---SP_TMSOLI_CABA_U01 '01' ,'OFISIS', '0000000002'     --*/  
/*---------------------------------------------------------*/  
@ISCO_EMPR          TD_VC_002,
@ISCO_USUA_MODI     TD_VC_008,
@ISNU_SOLI			TD_VC_010
  
AS  
BEGIN TRAN  
   
	Update TMSOLI_CABA
	Set		TI_SITU = 'APR',   
			FE_APRO = GETDATE() , 
			CO_USUA_MODI = @ISCO_USUA_MODI,   
			FE_USUA_MODI = GETDATE()  
	Where  CO_EMPR = @ISCO_EMPR  
	And	NU_SOLI = @ISNU_SOLI  
	
	IF (@@ERROR != 0)   BEGIN  
	  RAISERROR 20001 'ERROR DE INSERCION'  
	  ROLLBACK TRAN  
	  RETURN  
	END       
  
COMMIT TRAN  
/*--------------------------- Fin -------------------------------- */


GO
